home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 355 / source / ifsdemo / gemtypes.def < prev    next >
Text File  |  1990-02-02  |  3KB  |  96 lines
  1. DEFINITION MODULE GEMTypes;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. TYPE OBJECT = RECORD
  6.                  next   : INTEGER;
  7.                  head   : INTEGER;
  8.                  tail   : INTEGER;
  9.                  type   : INTEGER;
  10.                  flags  : INTEGER;
  11.                  state  : INTEGER;
  12.                  spec   : ADDRESS;
  13.                  x      : INTEGER;
  14.                  y      : INTEGER;
  15.                  width  : INTEGER;
  16.                  height : INTEGER;
  17.               END;
  18.  
  19.      ORECT = RECORD
  20.                 olink : ADDRESS;
  21.                 x     : INTEGER;
  22.                 y     : INTEGER;
  23.                 w     : INTEGER;
  24.                 h     : INTEGER;
  25.              END;
  26.  
  27.      GRECT = RECORD
  28.                 x : INTEGER;
  29.                 y : INTEGER;
  30.                 w : INTEGER;
  31.                 h : INTEGER;
  32.              END;
  33.  
  34.      TEDINFO = RECORD
  35.                   text      : ADDRESS;
  36.                   tmplt     : ADDRESS;
  37.                   valid     : ADDRESS;
  38.                   font      : INTEGER;
  39.                   junk1     : INTEGER;
  40.                   just      : INTEGER;
  41.                   color     : INTEGER;
  42.                   junk2     : INTEGER;
  43.                   thickness : INTEGER;
  44.                   txtlen    : INTEGER;
  45.                   tmplen    : INTEGER;
  46.                END;
  47.  
  48.      ICONBLK = RECORD
  49.                   mask  : ADDRESS;
  50.                   data  : ADDRESS;
  51.                   text  : ADDRESS;
  52.                   char  : INTEGER;
  53.                   xchar : INTEGER;
  54.                   ychar : INTEGER;
  55.                   xicon : INTEGER;
  56.                   yicon : INTEGER;
  57.                   wicon : INTEGER;
  58.                   hicon : INTEGER;
  59.                   xtext : INTEGER;
  60.                   ytext : INTEGER;
  61.                   wtext : INTEGER;
  62.                   htext : INTEGER;
  63.                END;
  64.  
  65.      BITBLK = RECORD
  66.                  data  : ADDRESS;
  67.                  wb    : INTEGER;
  68.                  hl    : INTEGER;
  69.                  x     : INTEGER;
  70.                  y     : INTEGER;
  71.                  color : INTEGER;
  72.               END;
  73.  
  74.      APPLBLK = RECORD
  75.                   code : ADDRESS;
  76.                   parm : LONGINT;
  77.                END;
  78.  
  79.      PARMBLK = RECORD
  80.                   tree      : ADDRESS;
  81.                   obj       : INTEGER;
  82.                   prevstate : INTEGER;
  83.                   currstate : INTEGER;
  84.                   x         : INTEGER;
  85.                   y         : INTEGER;
  86.                   w         : INTEGER;
  87.                   h         : INTEGER;
  88.                   xc        : INTEGER;
  89.                   yc        : INTEGER;
  90.                   wc        : INTEGER;
  91.                   hc        : INTEGER;
  92.                   parm      : LONGINT;
  93.                END;
  94.  
  95. END GEMTypes.
  96.